home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 85 / 085.d81 / inscr$ creator (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  862 b   |  29 lines
  1. 5 rem inscr$
  2. 7 rem sys sa,x,y,length
  3. 8 rem returns string in first defined variable
  4. 10 sa=49152
  5. 20 ea=sa+119
  6. 30 hs=int(sa/256):ls=sa-(hs*256)
  7. 40 he=int(ea/256):le=ea-(he*256)
  8. 50 fori=sa to ea:readd:pokei,d:next
  9. 60 sys57812"inscr$.o",8:poke193,ls:poke194,hs:poke174,le:poke175,he:sys62954
  10. 70 end
  11. 80 :
  12. 100 data 32,241,183,142,104,192,32,241
  13. 110 data 183,142,103,192,32,241,183,142
  14. 120 data 105,192,169,216,133,251,169,3
  15. 130 data 133,252,160,255,24,165,251,105
  16. 140 data 40,133,251,165,252,105,0,133
  17. 150 data 252,200,204,103,192,208,237,162
  18. 160 data 0,172,104,192,177,251,140,106
  19. 170 data 192,201,0,8,41,127,160,4
  20. 180 data 136,217,107,192,176,250,89,111
  21. 190 data 192,40,172,106,192,157,115,192
  22. 200 data 200,232,236,105,192,208,221,160
  23. 210 data 2,138,145,45,200,169,115,145
  24. 220 data 45,200,169,192,145,45,96,0
  25. 230 data 0,0,0,128,96,64,32,192
  26. 240 data 32,0,64,0,0,0,0,0
  27. 250 :
  28. 10000 open15,8,15,"s0:inscr$ creator":close15:save"inscr$ creator",8:end
  29.